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Abstract 


A system for Uniform Resource Names (URNs) must be capable of 
supporting new naming systems. As an example of proposing a new 
namespace, this document proposes the "ietf" namespace. This 
namespace consists of the RFC family of documents (RFCs, STDs, FYIs, 
and BCPs) developed by the IETF and published by the RFC Editor, the 
minutes of working groups (WG) and birds of a feather (BOF) meetings 
that occur during IETF conferences, and the Internet Drafts published 
by the Internet Drafts Editor. Both the current URN framework and 
URN syntax support this namespace. 


1. Introduction 
This document proposes the "ietf" namespace, which consists of the 
RFC family of documents (RFCs, STDs, FYIs, and BCPs) developed by the 
IETF and published by the RFC editor and the minutes of working 
groups (WG) and birds of a feather (BOF) meetings that occur during 
IETF conferences. 
The namespace specification is for a formal namespace. 

2. Specification Template 


Namespace ID: 


"ietf" requested. 
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Registration Information: 


Registration version number: 1 
Registration date: 1999-04-22 


Declared registrant of the namespace: 


Ryan Moats 
jayhawk@att.com 
AT&T 

15621 Drexel Circle 
Omaha, NE 68135-2358 


Declaration of structure: 


August 1999 


The identifier has the following ABNF [2] specification: 


NSS = rfc-nss / fyi-nss / std-nss / bcp-nss / 
draft-nss / mtg-nss / other-nss 


rfc-nss = "rfc:" 1*DIGIT 
fyi-nss = "fyi:" 1*DIGIT 
std-nss = "std:" 1*DIGIT 
bep-nss = "bcp:" 1*DIGIT 
draft-nss = "id:" string 
mtg-nss = "mtg:" string 
other-nss = string 


; beginning with a prefix other than one of those 


; above for future expansion 


string = 1* (DIGIT / ALPHA / "-") 


If the IESG (or it successor) adds a new document series, 


this ABNF specification will need to be updated. 


Further, 


if a working group or BOF is created that used characters 
outside the range of this ABNF specification, this 
specification will need to be updated. Any system intended 
to resolve names for this namespace should be written with 


the awareness that this could occur at any time. 
Relevant ancillary documentation: 


Relevant documentation is in RFC 2648. 
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Identifier uniqueness considerations: 


Because the rfc-editor assigns the RFC number uniquely these 
URNs are unique. Since the mapping between RFCs and other 
rfc-editor document series (STDs, FYIs or BCPs) is not 
necessarily one-to-one, uniqueness of STDs, FYIs and BCPs 
are defined based on the document mappings maintained by the 
RFC Editor (the index files "rfc-index.txt", "fyi- 
index.txt", "bcp-index.txt", "std-index.txt") are defined to 
be the definitive statement of the assignment of RFC Family 
URNs in this namespace. The meeting minutes portion of the 
namespace is guaranteed unique because the URN includes the 
sequence number of the IETF conference. The document 
mapping maintained by the Internet Drafts editor ("lid- 
abstracts.txt") is defined as the definitive statement of 
the assignment of URNs for the internet draft portion of 
this namespace. 


Identifier persistence considerations: 


Persistence of the URNs of this namespace is independent of 
the mutability of the underlying documents. A URN once 
assigned will never be reassigned to a different resource; 
the assignment is persistent and immutable. Immutability of 
RFCs, STDs, FYIs and BCPs is at the discretion of the RFC 
Editor. They may be composites of one or more RFCs and the 
set of RFCs that includes them may change with time. It is 
important to note that this mutability of some resources is 
independent of the immutability of URN assignment to a 
resource. 


Process of identifier assignment: 


Assignment of URNs from this namespace occurs in three ways. 
The first is through publication of a new RFC, FYI, STD or 
BCP is by the RFC Editor. This new document will have a new 
series number and will therefore define a new URN. The 
document mappings maintained by the RFC Editor (the index 
files "rfc-index.txt", "fyi-index.txt", "bcp-index.txt" and 
"std-index.txt") are defined to be the definitive statement 
of the assignment of RFC Family URNs in this namespace. 


The second way a URN is assigned is through the filing of 
meeting minutes by a working group or birds of a feather as 
part of an IETF conference. The list of minutes maintained 
by the IETF for each working group and conference in the 
subtree pointed at by the URL ftp://ietf.org/ietf/ is 
considered the definitive assignment of URNs for working 
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group or birds of a feather minutes. 


The third way a URN is assigned is through the publication 
of a new internet-draft by the Internet Draft Editor. This 
draft will have a distinct name (and version number) and 
therefore defined a new URN. The document mapping 
maintained by the Internet Drafts editor ("lid- 
abstracts.txt") is defined as the definitive statement of 
the assignment of URNs for this portion of the namespace. 


Process of identifier resolution: 


Rules 


A mirrored copy of the underlying documentation is required 
to resolve these URNs. Resolution via HTTP is done by a set 
of simple Perl cgi-bin scripts presented in Appendix A. 


for Lexical Equivalence: 


The entire URN is case-insensitive. 


Conformance with URN Syntax: 


There are no additional characters reserved. 


Validation mechanism: 


Scope: 


3. Examples 


None additional to resolution specified 


Global. 


The following are examples of URNs that a resolver for this namespace 
can resolve: 


urn 
urn 
urn 
urn 


Moats 


:jetf:rfc:2141 
:ietf:std:50 
:ietf:id:ietf-urn-ietf-06 
:ietf:mtg:41-urn 
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4. Security Considerations 


Because this namespace defines no additional reserved characters, it 
does not add any security considerations beyond those inherent from 
the existence of the reserved characters from [1]. Further, none of 
the reserved characters from [1] are used in the definition of the 
NSS. This means that resolvers for this namespace may be considered 
"secure" in the sense that any escaping of characters in the NSS MUST 
result in the resolver indicating that the URN has incorrect syntax. 
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Appendix A. Example Resolution Scripts 


The following scripts are examples that can be used for resolving 
URNs in this namespace. 


e Eege 
#!/usr/local/bin/perl 
use strict; 


# 
# this is a URN 2 URC resolver for the ietf namespace 
# 


my(%Scite) = ( 
bcp => "/ftp/rfc/bcp-index.txt", 
fyi => "/ftp/fyi/fyi-index.txt", 
id => "/ftp/internet-drafts/lid-abstracts.txt", 
rfc => "/ftp/rfc/rfc-index.txt", 
std => "/ftp/std/std-index.txt" 

i 

my (snumber2date) = ( 
44 => "99mar", 
43 => "98dec", 42 => "98aug", 41 => "98apr", 
40 => "97dec", 39 => "97aug", 38 => "97apr", 
37 => "96dec", 36 => "96jun", 35 => "96mar", 
34 => "95dec", 33 => "95jul", 32 => "95apr", 
31 => "94dec", 30 => "945jul", 29 => "94mar", 
28 => "93nov", 27 => "93Jjul", 26 => "93mar", 
25 => "92nov", 24 => "92jul", 23 => "92mar", 
22 => "91nov", 21 => "91jul", 20 => "91mar", 
19 => "90dec" ); 


my ($wgpath) = "/ftp/ietf"; 

my (Surn) = SENV{’ QUERY_STRING’ }; 

my ($host) = SENV{’SERVER_NAME’}; #get my host name for ftp: URLs 

my (Saccept) = SENV{’HTTP_ACCEPT’}; #this is the "Accept:" HTTP header 


(&resolveid($1), exit) if (S$urn = 
(&éresolverfc($1, $2), exit) if (Sur 
(&resolvemtg($1, $2), exit) if (Sur 
éurn_error ("400 Bad Request\n") ; 


/urn:ietf:id: (\S+)/i); 
n /urn:ietf: (\w*) : (\d*) /i); 
n = /urn:ietf:mtg: (\d*)-(\w*) /i); 
sub resolvemtg { 
my (Sietfnum, Ssesnam) = @_; 
&urn_error ("404 Not Found\n") if (!defined $number2date{$ietfnum}); 
my ($date) =Snumber2date{Sietfnum}; 
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my (Slink) ="S$Swgpath/$sesnam/$sesnam-minutes-$date.txt"; 
if (-f $link) { 


print "Status: 200 OK\r\n"; 

print "Content-type: text/html\r\n\r\n"; 

print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n"; 

print "<BODY>\n"; 

print "<H1><A HREF=\"Slink\">Surn</A>:</H1>\n"; 

print "Minutes of the $sesnam working group from the " 
&end ($ietfnum) . " IETF"; 

print "</BODY>\n</HTML>\n"; 

return; 


} 


my (Slink) ="$wgpath/$date/$sesnam-minutes-$Sdate.txt"; 
if (-f $link) { 


print "Status: 200 OK\r\n"; 

print "Content-type: text/html\r\n\r\n"; 

print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n"; 

print "<BODY>\n"; 

print "<H1><A HREF=\"Slink\">Surn</A>:</H1>\n"; 

print "Minutes of the $sesnam working group from the " 
gend ($ietfnum) . " IETF"; 

print "</BODY>\n</HTML>\n"; 

return; 


} 


&urn_error ("404 Not Found\n"); 


} 


sub end { 


my (Sinarg) =@_; 


1999 


return Sinarg . "st" if (Sinarg =~ /1$/); 
return Sinarg . "nd" if (Sinarg =~ /2$/); 
return $inarg . "rd" if (Sinarg =~ /3$/); 
return Sinarg . "th"; 


} 


sub resolverfc { 
my ($flag, @bib, $i, $k, $j, $done,@ref); 
my ($1, $link); 
my ($scheme, $value) = @_; 
Sscheme =~ tr/A-Z/a-z/; 
if (!defined S$cite{$scheme}) { 
&urn_error("404 Not Found\n"); 


} 


Sflag = 0; 
open (INPUT, "Scite{Sscheme}") ; 
while (<INPUT>) { 

Sflag = 1 if (/*0*Svalue /); 
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if ($flag == 1) { 
last if (/*$/); 
chop; 
push @bib,$_; 
} 
} 


if ($scheme ne "rfc") { 
print "Status: 200 OK\r\n"; 
print "Content-type: text/html\r\n\r\n"; 


Sbib[0] =~ s/*[0-9]*\s*/<B>/; 
for (Si=0; S$ix<x=S#bib; S$it=1) { 
last if (S$bib[$i] =~ s/\./.<\/B>/); 


} 
for ($i=0;$i<=$#bib; $i+t=1) { 
$k=$bib[$i]; 


while ($k =" /(fyi|std|rfclbcp) ([0-9]+) (.*)/i) { 
push @ref,"$1$2"; 
$k=$3; 
} 
Sdone=" H: 
foreach $j (@ref) { 
next if (Sdone =~ $j); 
Sdone .= "Sj "7 
$1 = $j; 
$1 =" tr/A-Z/a-z/; 
Slink=&make_link ("$1"); 
Sbib[$i] =" s/$j/<A HREF="S$link">$j<\/A>/g; 
} 


} 
print "<HTML>\n<TITLE>Citation for Surn</TITLE>\n"; 
print "<BODY>\n"; 
Slink=&make_link ("SschemeSvalue") ; 
print "<H1><A HREF=\"Slink\">SschemeSvalue</A>:</H1>\n"; 
foreach Si (@bib) { 
print "S$i\n"; 
} 
print "</BODY>\n</HTML>\n"; 
} else { 
print "Status: 200 OK\r\n"; 
print "Content-type: text/html\r\n\r\n"; 
Sbib[0] =" s/*[0-9]*\s*//; 
$j=0; 
for (Si=0; $ix<x=S#bib; S$it=1) { 
$j += ($bib[$i] =" s/, "/, <B>"/); 
$j += ($bib[$i] =" s/",/"<\/B>,/); 
} 
for ($i=0;$i<=$#bib;$i+=1) { 
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$k=Sbib[$i]; 


while ($k =" /(fyi\s|std\s|rfc|bcp) ([0-9]+) (.*)/i) { 
push @ref,"$1$2"; 
$k=$3; 
} 
Sdone=""; 
foreach $j (@ref) { 
next if (Sdone =~ $j); 
Sdone .= "Sj "; 
$1 = $j; 
$1 =" s/\s//g; 
$1 =" tr/A-Z/a-z/; 
Slink=&make_link ("$1"); 
Sbib[Si] =" s/$j/<A HREF="S$link">$ j<\/A>/g; 


} 
} 
print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n"; 
print "<BODY>\n"; 
Slink=&make_link ("$scheme$value"); 
print "<H1><A HREF=\"Slink\">SschemeSvalue</A>:</H1>\n"; 
foreach $i (@bib) { 
print "SINN"; 
} 
print "</BODY>\n</HTML>\n"; 


} 


sub make_link { 


my ($sc) ; 
my (Sinarg) =@_; 
($sc=$1) if ($inarg =" /([a-z]*)/); 


return "/Ssc/Sinarg.ps" if (-e "/ftp/$sc/$inarg.ps"); 
return "/S$sc/Sinarg.html" if (-e "/ftp/$sc/Sinarg.html") ; 
return "/$sc/$inarg.txt"; 


} 


sub urn_error { 
my ($code) = @_; #store failure code here... 


print "Status: $code"; 

print "Content-type: text/html\n\n<HTML>\n"; 

print "<head><title>URN Resolution: I2C $code</title></head>\n"; 
print "<BODY>\n"; 

print "<h1>URN to URC resolution failed for the URN:</h1>\n"; 
print "<hr><h3>Surn</h3>\n"; 

print "</body>\n"; 

print "</html>\n"; 

exit; 
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$J, $count, @ref) ; 


my ($1,$link, $hdr, $done); 
my ($value) = @_; 
my ($scheme) = "id"; 
open (INPUT, "Scite{Sscheme}") ; 
while (<INPUT>) { 
# 
# capture record 
# 
if ($flag == 1 || /*\s+\"/) { 
push @bib, S_; 
(Shdr = -1, $count = 0, $flag = 1) if (/*\st\"/); 
Scount++ if (/*\s+$/); 
} 
if (Scount == 1) { 
Shdr = $#bib if ($hdr == -1); 
} 
if (Scount == 2) { 
for ($i=0; $i<=Shdr; $i+=1) { 
if ($bib[$i] =~ /<(.*)>/) { 
$1 = $1; 
if ($1 eq "draft-$value.txt" | | sl eq "draft-Svalue.ps") { 
print "Status: 200 OK\r\n"; 
print "Content-type: text/html\r\n\r\n"; 
print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n"; 
print "<BODY>\n"; 
print "<a 
href=\"http://blackhole.vip.att.net/internet-—drafts/$1\">$l</a>:\n"; 
print "<pre>\n"; 
foreach Si (@bib) { 
print "Si"; 
} 
print "</pre>\n"; 
print "</BODY>\n</HTML>\n"; 
exit; 
} 
} 
} 
Sflag = 0; 
@bib = (); 


} 
} 


&urn_error ("404 Not 
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Found\n"); 
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#!/usr/local/bin/perl 


use stri 


# 


# this is a URN 2 URL resolver for the ietf namespace 


# 


ct; 


my (%$pathbase) = ( 


rfc => 
fyi => 
std => 
bcp => 
id => 


); 


Ugh Kon Lick Ronee 
" fyi/fyi N, 
"std/std", 
"bcep/bcp", 


"internet-drafts/draft-" 


my (<number2date) = ( 


44 => "99mar", 

43 => "98dec", 42 => "98aug", 41 = 
40 => "97dec", 39 => "97aug", 38 
37 => "96dec", 36 => "96Jjun", 35 
34 => "95dec", 33 => "95Jjul", 32 
31 => "94dec", 30 => "94jul", 29 
28 => "93nov", 27 => "93JjJul", 26 
25 => "92nov", 24 => "92Jjul", 23 
22 => "91nov", 21 => "91jul", 20 = 
19 => "90dec" ); 

Swgpath) = "/ftp/ietf"; 


my ( 

my (Surn) 
my (Shost 
my ( 


Saccept) 


= SENV{’ QUERY_STRING’ }; 


) = SENV{’ SERVER_NAME’ }; 


&resolveid($1), exi 
&resolverfc($1, $2) 


( 

( 

(&resolvemtg($1, $2) 
&urn_error ("400 


sub resolvemtg { 


my (Sietfnum, 


t) 


E 


$sesnam) 


= $ENV{' HTTP_ACCEPT” }; 


if ($urn = 
exit) if ($ur 
exit) if ($ur 
Bad Request\n"); 


= @_|; 


&urn_error ("404 Not Found\n") if 


my ($date) =$number2date {$ietfnum}; 
my (Slink) ="$wgpath/$sesnam/$sesnam-minutes-$date.txt"; 


EE (SP 


Slink) { 


print "Status: 
print "Location: 


Moats 


#this is the 


/urn:ietf:id: (\S+)/i); 


n 
n 


" 98apr", 
" 97apr", 
"96mar", 
" 95apr", 
"94mar", 
"93mar", 
"92mar", 
"O9lmar", 


August 1999 


#get my host name for ftp: URLs 
"Accept:" HTTP header 


/urn:ietf: (\w*) : (\d*) /i); 
/urn:ietf:mtg: (\d*)- (\w*) /i); 


(!defined Snumber2date{Sietfnum}) ; 


302 Moved temporarily\n"; 
Slink\n"; 
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return; 
} 
my (Slink) ="$wgpath/$date/$sesnam-minutes-$Sdate.txt"; 
if (-f $link) { 
print "Status: 302 Moved temporarily\n"; 
print "Location: $link\n"; 
return; 
} 
&urn_error ("404 Not Found\n"); 


} 


sub end { 
my (Sinarg) =@_; 


return $inarg . "st" if (Sinarg =~ /1$/); 
return $inarg . "nd" if (Sinarg =~ /28/); 
return $inarg . "rd" if ($inarg =~ /3$/); 
return $inarg . "th"; 


} 


sub resolverfc { 
my ($flag, @bib, $i, $k, $j, $done, @ref) ; 
my ($1, $link); 
my ($scheme, $value) = @_; 
Sscheme =" tr/A-Z/a-z/; 
&urn_error ("404 Not Found\n")if (!defined $pathbase{$scheme}) ; 
my ($txttry) ="/ftp/Spathbase{$scheme}$value.txt"; 
my (Spstry) ="/ftp/Spathbase{$scheme}S$value.ps"; 
my ($Shtmltry)="/ftp/$pathbase{$scheme}$value.html"; 
MIME SWITCH: { 
if (Saccept =" /application\/postscript/ && -f $pstry) { 
print "Status: 302 Moved temporarily\n"; 
print "Location: http://Shost/Spathbase{$scheme}Svalue.ps\n\n"; 
last MIME_SWITCH; 
} 
if (Saccept =~ /text\/html/ && -f S$htmltry) { 
print "Status: 302 Moved temporarily0; 
print "Location: http://Shost/Spathbase{$scheme}Svalue.html\n\n"; 
last MIME SWITCH; 
} 
if (Saccept =" /\*\/\*|text\/plain/ && -f $txttry) { 
print "Status: 302 Moved temporarily\n"; 
print "Location: http://Shost/Spathbase{$scheme}Svalue.txt\n\n"; 
last MIME_SWITCH; 
} 


&urn_error ("404 Not Found\n"); 
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sub urn_error { 
my ($code) = @_; #store failure code here... 


print "Status: $code"; 

print "Content-type: text/html\n\n<HTML>\n"; 

print "<head><title>URN Resolution: I2L $code</title></head>\n"; 
print "<BODY>\n"; 

print "<hl>URN to URL resolution failed for the URN:</h1>\n"; 
print "<hr><h3>Surn</h3>\n"; 

print "</body>\n"; 

print "</html>\n"; 

exit; 


} 


sub resolveid { 
my ($flag, @bib, $i, $k,$ j,$done, @ref) ; 
my ($1, $link); 


my ($scheme) Wao Lie, 
my ($value) = @_; 
Sscheme =~ tr/A-Z/a-z/; 


&urn_error ("404 Not Found\n")if (!defined $pathbase{$scheme}) ; 
my ($txttry) ="/ftp/Spathbase{$scheme}$value.txt"; 
my (Spstry) ="/ftp/Spathbase{$scheme}S$value.ps"; 
my (S$htmltry) ="/ftp/Spathbase{$scheme}S$value.htmL"; 
MIME SWITCH: { 
if (Saccept =" /application\/postscript/ && -f $pstry) { 
print "Status: 302 Moved temporarily\n"; 
print "Location: http://Shost/Spathbase{$scheme}Svalue.ps\n\n"; 
last MIME SWITCH; 
} 
if (Saccept =~ /text\/html/ && -f $htmltry) { 
print "Status: 302 Moved temporarily\n"; 
print "Location: http://Shost/Spathbase{$scheme}Svalue.html\n\n"; 
last MIME_SWITCH; 
} 
if (Saccept =" /\*\/\*|text\/plain/ && -f $txttry) { 
print "Status: 302 Moved temporarily\n"; 
print "Location: http://Shost/Spathbase{$scheme}Svalue.txt\n\n"; 
last MIME_SWITCH; 


} 


&urn_error ("404 Not Found\n"); 
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A.3 I2Ls 
#!/usr/local/bin/perl 
use strict; 


# 
# this is a URN 2 URLs resolver for the ietf namespace 
# 


my (@urls) ; 


my (spathbase) = ( 

rfc => "rfc/rfc", 

fyi => "fyi/fyi", 

std => "std/std", 

bcp => "bep/bcp", 

id => "internet-drafts/draft-" 
); 


my (snumber2date) = ( 

44 => "99mar", 

43 => "98dec", 42 => "98aug", 41 => "98apr", 
40 => "97dec", 39 => "97aug", 38 => "97apr", 
37 => "96dec", 36 => "96Jjun", 35 => "96mar", 
34 => "95dec", 33 => "95Jjul", 32 => "95apr", 
31 => "94dec", 30 => "94jul", 29 => "94mar", 
28 => "93nov", 27 => "93jul", 26 => "93mar", 
25 => "92nov", 24 => "92jul", 23 => "92mar", 
22 => "91nov", 21 => "91jul", 20 => "91mar", 
19 => "90dec" ); 


my ($wgpath) = "/ftp/ietf"; 

my ($Surn) = SENV{’ QUERY_STRING’ }; 

my ($host) = SENV{’SERVER_NAME’}; #get my host name for ftp: URLs 

my (Saccept) = SENV{’HTTP_ACCEPT’}; #this is the "Accept:" HTTP header 
(&resolveid($1), exit) if ($Surn =~ /urn:ietf:id: (\S+)/i); 

(&resolvel ($1, $2), exit) if ($Surn =~ /urn:ietf: (\w*): (\d*) /i); 
(&resolve2 ($1, $2), exit) if ($Surn =~ /urn:ietf:mtg: (\d*)- (\w*) /i); 
&urn_error("400 Bad Request\n"); 


sub resolve2 { 


my (Sietfnum, $sesnam) = @_; 

&urn_error("404 Not Found\n") if (!defined $number2date{Sietfnum}); 
my ($date) =Snumber2date{Sietfnum}; 

my ($link) ="$wgpath/$sesnam/$sesnam-minutes-$date.txt"; 


if (-f $link) { 
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$link="s/*\/£tp\///; 

my ($ftplink)="ftp://Shost/$link"; 

my ($httplink) ="http://Shost/$link"; 

my (Sglink) ="gopher://Shost:70/0/$link"; 


if (Saccept =" /text\/uri-list/) { #look for text/uri-list, 
otherwise text/html 
print "Status: 200 OK\n"; 
print "Content-type: text/uri-list\n\n\n"; 
print "#Surn\n"; 
print "$ftplink\n"; 
print "Shttplink\n"; 
print "Sglink\n"; 
} 
if ($accept =~ /\*\/\*|text\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ls</title></head>\n"; 
print "<BODY>\n"; 
print "<h1>URN Surn resolves to the following URLs:</h1>\n"; 
print "<hr><ul>\n"; 
print "<a href=\"$ftplink\">$ftplink</a>\n"; 
print "<a href=\"Shttplink\">Shttplink</a>\n"; 
print "<a href=\"Sglink\">S$glink</a>\n"; 
print "</UL>\n</body>\n</HTML>\n"; 
} 
return; 
} 
my (Slink) ="Swgpath/Sdate/Ssesnam-minutes-—Sdate.txt"; 
if (-f $link) { 
Slink="s/*\/ftp\///; 
my ($ftplink) ="ftp://S$host/$link"; 
my ($httplink) ="http://S$host/$link"; 
my (Sglink) ="gopher://Shost:70/0/$link"; 
if (Saccept =" /text\/uri-list/) { #look for text/uri-list, 
otherwise text/html 
print "Status: 200 OK\n"; 
print "Content-type: text/uri-list\n\n\n"; 
print "#Surn\n"; 
print "$ftplink\n"; 
print "Shttplink\n"; 
print "Sglink\n"; 
} 
if ($accept =~ /\*\/\*|text\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ls</title></head>\n"; 
print "<BODY>\n"; 
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print "<h1>URN Surn resolves to the following URLs:</h1>\n"; 
print "<hr><ul>\n"; 
print "<a href=\"$ftplink\">$ftplink</a>\n"; 
print "<a href=\"Shttplink\">Shttplink</a>\n"; 
print "<a href=\"Sglink\">S$glink</a>\n"; 
print "</UL>\n</body>\n</HTML>\n"; 
} 


return; 
} 
&urn_error ("404 Not Found\n"); 


} 


sub resolvel { 

my ($flag, @bib, $i, $k, $j, $Sdone, @ref) ; 

my ($1, $link); 

my ($scheme, $value) = @_; 

Sscheme =~ tr/A-Z/a-z/; 

&urn_error ("404 Not Found\n")if (!defined S$pathbase{$scheme}) ; 

my ($try)="/ftp/Spathbase{$scheme}$value.txt"; 

if (-f Steel { 
push (@urls, "http://Shost/$pathbase {$scheme}$value.txt"); 
push (@urls, "ftp://Shost/Spathbase{$scheme}$value.txt") ; 
push (@urls, "gopher://$Shost:70/0/$pathbase{$scheme}$value.txt"); 

} 

Stry="/ftp/$pathbase {$scheme}$value.ps"; 

if (-f $try) { 
push (@urls, "http://Shost/$pathbase {$scheme}$value.ps"); 
push (@urls, "ftp://Shost/Spathbase{$scheme}$value.ps") ; 
push (@urls, "gopher://Shost:70/0/Spathbase{$scheme}Svalue.ps") ; 

} 

Stry="/ftp/$pathbase {$scheme}$value.html"; 

if (-f $try) { 
push (@urls, "http://Shost/$pathbase {$scheme}$value.html"); 
push (@urls, "ftp://Shost/$pathbase {$scheme}$value.html"); 

} 


&urn_error("404 Not Found\n") if (S#urls == -1); 


MIME_SWITCH: { 
if (Saccept =" /text\/uri-list/) { #look for text/uri-list, 

otherwise text/html 

print "Status: 200 OK\n"; 

print "Content-type: text/uri-list\n\n\n"; 

print "#$urn\n"; 

foreach $i (@urls) { 
print "$i\n"; 


} 
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last MIME_SWITCH; 
} 
if ($accept =" /\*\/\*|text\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ls</title></head>\n"; 
print "<BODY>\n"; 
print "<h1>URN Surn resolves to the following URLs:</hl>\n"; 
print "<hr><ul>\n"; 
foreach $i (@urls) { 
print "<LI><A HREF=\"Si\">S$i</A>\n"; 
} 
print "</UL>\n</body>\n</HIML>\n"; 
last MIME_SWITCH; 


} 


sub urn_error { 
my ($code) = @_; #store failure code here... 


print "Status: $code"; 

print "Content-type: text/html\n\n<HTML>\n"; 

print "<head><title>URN Resolution: I2L $code</title></head>\n"; 
print "<BODY>\n"; 

print "<hl>URN to URL resolution failed for the URN:</h1>\n"; 
print "<hr><h3>Surn</h3>\n"; 

print "</body>\n"; 

print "</html>\n"; 

exit; 


} 


sub resolveid { 
my ($flag, @bib, $i, $k, $j, $done, @ref) ; 
my ($1,$link); 


my ($value) = @_; 
my ($scheme) = "id"; 
Sscheme =" tr/A-Z/a-z/; 


&urn_error ("404 Not Found\n")if (!defined $pathbase{$scheme}) ; 
my (S$try)="/ftp/Spathbase{$scheme}$value.txt"; 
if (-f Stry) { 
push(@urls, "http://Shost/$pathbase {$scheme}$value.txt"); 
push (@urls, "ftp://Shost/S$Spathbase{$scheme}$value.txt"); 
push (@urls, "gopher://Shost:70/0/$pathbase{$scheme}$value.txt"); 
} 
Stry="/ftp/$pathbase {$scheme}$value.ps"; 
if “(sf Stréi of 
push (@urls, "http://Shost/$pathbase {$scheme}$value.ps"); 
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push (@urls, "ftp://Shost/Spathbase{$scheme}$value.ps") ; 
push (@urls, "“gopher://Shost:70/0/Spathbase{$scheme}Svalue.ps") ; 
} 
Stry="/ftp/$pathbase {$scheme}$value.html"; 
if (-f $try) { 
push (@urls, "http://Shost/$pathbase {$scheme}$value.html"); 
push (@urls, "ftp://Shost/$pathbase {$scheme}$value.html"); 
} 


&urn_error ("404 Not Found\n") if (S#urls == -1); 


MIME_SWITCH: { 
if (Saccept =" /text\/uri-list/) { #look for text/uri-list, 
otherwise text/html 
print "Status: 200 OK\n"; 
print "Content-type: text/uri-list\n\n\n"; 
print "#$urn\n"; 
foreach $i (@urls) { 
print "$i\n"; 
} 
last MIME_SWITCH; 
} 
if ($accept =" /\*\/\*|text\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ls</title></head>\n"; 
print "<BODY>\n"; 
print "<h1>URN Surn resolves to the following URLs:</h1>\n"; 
print "<hr><ul>\n"; 
foreach $i (@urls) { 
print "<LI><A HREF=\"Si\">S$i</A>\n"; 
} 
print "</UL>\n</body>\n</HIML>\n"; 
last MIME SWITCH; 


} 

A.4 I2Ns 
#!/usr/local/bin/perl 
use strict; 

# 


# this is a URN 2 URNs resolver for the ietf namespace 
# 
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my ($cite) = ( 
rfc => "/ftp/rfc/rfc-index.txt", 
fyi => "/ftp/fyi/fyi-index.txt", 
std => "/ftp/std/std-index.txt", 
bcp => "/ftp/rfc/bcp-index.txt" 
i 


my (snumber2date) = ( 

44 => "99mar", 

43 => "98dec", 42 => "98aug", 41 => "98apr", 
40 => "97dec", 39 => "97aug", 38 => "97apr", 
37 => "96dec", 36 => "96Jjun", 35 => "96mar", 
34 => "95dec", 33 => "95Jjul", 32 => "95apr", 
31 => "94dec", 30 => "94jul", 29 => "94mar", 
28 => "93nov", 27 => "93jul", 26 => "93mar", 
25 => "92nov", 24 => "92jul", 23 => "92mar", 
22 => "91nov", 21 => "91jul", 20 => "91mar", 
19 => "90dec" ); 


my ($wgpath) = "/ftp/ietf"; 

my (Surn) = SENV{’ QUERY_STRING’ }; 

my ($host) = SENV{’SERVER_NAME’}; #get my host name for ftp: URLs 

my (Sport) = SENV={’ SERVER_PORT’ }; 

my (Saccept) = SENV{’HTTP_ACCEPT’}; #this is the "Accept:" HTTP header 
(&resolvel ($1, $2), exit) if (Surn =~ /urn:ietf: (\w*) :(\d*)/i); 
(&resolve2($1, $2), exit) if ($Surn =~ /urn:ietf:mtg: (\d*)- (\w*) /i); 


éurn_error ("400 Bad Request\n"); 


sub resolve2 { 


my (Sietfnum, $sesnam) = @_; 
&urn_error ("404 Not Found\n") if (!defined $number2date{$ietfnum}); 
my ($date) =Snumber2date{Sietfnum}; 
my ($link) ="$wgpath/$sesnam/$sesnam-minutes-$date.txt"; 
if (-f $link) { 
if (Saccept =~ /text\/uri-list/) { 


print "Status: 200 OK\n"; 
print "Content-type: text/uri-list\n\n\n"; 
print "#Surn\n"; 
return; 
} 
if ($accept =" /\*\/\*|text]\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ns</title></head>\n"; 
print "<BODY>\n"; 
print "<h1>URN Surn resolves to the following URNs:</h1>\n"; 
print "<hr><ul>\n"; 
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print "</UL>\n</body>\n</HIML>\n"; 
return; 
} 
} 
my (Slink) ="$wgpath/$date/$sesnam-minutes-$Sdate.txt"; 
if (-f $link) { 
if (Saccept =~ /text\/uri-list/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/uri-list\n\n\n"; 
print "#Surn\n"; 
return; 
} 
if (Saccept =~ /\*\/\*|text\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ns</title></head>\n"; 
print "<BODY>\n"; 
print "<h1>URN Surn resolves to the following URNs:</h1>\n"; 
print "<hr><ul>\n"; 
print "</UL>\n</body>\n</HIML>\n"; 
return; 
} 
} 
&urn_error ("404 Not Found\n"); 


} 


sub end { 
my (Sinarg) =@_; 


return Sinarg . "st" if (Sinarg =~ /1$/); 
return Sinarg . "nd" if (Sinarg =~ /2$/); 
return $inarg . "rd" if (Sinarg =~ /3$/); 
return $inarg . "th"; 


} 


sub resolvel { 
my ($flag, @bib, $i, $k, $j, $Sdone, @ref) ; 
my ($1, $link); 
my ($scheme, $value) = @_; 
Sscheme =" tr/A-Z/a-z/; 
if (!defined S$cite{$scheme}) { 
&urn_error("404 Not Found\n"); 


} 


Sflag = 0; 
open (INPUT, "Scite{Sscheme}") ; 
while (<INPUT>) { 
Sflag = 1 if (/*0*Svalue /); 
if ($flag == 1) { 
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last if (/*$/); 
chop; 
push @bib,$_; 


} 


Sk=join " ",@bib; 
while ($k =" / (\S*) \s* (£fyi|sta|rfc|bcp) \s* ([0-9]+) (.*)/i) { 
$k=$4; 
$a=$2; $b=$3; 
if (($a ne $scheme || $b ne $value) && ($1 !~ /obso/i)){ 
Sa =" tr/A-Z/a-z/; 


$b =" s/*0*//; 
push @ref, "urn:ietf:$a:$b"; 
} 
} 


MIME_SWITCH: { 
if (Saccept =~ /text\/uri-list/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/uri-list\n\n\n"; 
print "#Surn\n"; 
foreach $i (@ref) { 
print "$i\n"; 
} 
last MIME SWITCH; 
} 
if (Saccept =~ /\*\/\*|text\/html/) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n<HTML>\n"; 
print "<head><title>URN Resolution: I2Ns</title></head>\n"; 
print "<BODY>\n"; 
print "<h1>URN Surn resolves to the following URNs:</h1>\n"; 
print "<hr><ul>\n"; 
foreach $i (@ref) { 
print "<li>$i: Click to resolve using\n"; 
print "<a 
href=\"http://Shost:Sport/uri-res/I2C?$i\">I2C</a>,\n"; 
print "<a 
href=\"http://Shost:S$port/uri-res/I2L?$i\">I2L</a>,\n"; 
print "<a 
href=\"http://Shost:$port/uri-res/I2Ls?$i\">I2Ls</a>,\n"; 
print "<a 
href=\"http://Shost:$port/uri-res/I2R?$i\">I2R</a>,\n"; 
print "<a 
href=\"http://Shost:S$port/uri-res/I2Rs?$i\">I2Rs</a>\n"; 
} 
print "</UL>\n</body>\n</HIML>\n"; 


Moats Informational [Page 21] 


RFC 2648 A URN Namespace for IETF Documents August 1999 


sub make_link { 


my ($sc) ; 
my (Sinarg) =@_; 
($sc=$1) if (Sinarg =" /([a-z]*)/); 


return "/Ssc/Sinarg.ps" if (-e "/ftp/$sc/Sinarg.ps"); 
return "/S$sc/Sinarg.html" if (-e "/ftp/$sc/Sinarg.html") ; 
return "/$sc/$inarg.txt"; 


} 


sub urn_error { 
my ($code) = @_; #store failure code here... 


print "Status: $code"; 

print "Content-type: text/html\n\n<HTML>\n"; 

print "<head><title>URN Resolution: I2Ns $code</title></head>\n"; 
print "<BODY>\n"; 

print "<hl>URN to URN resolution failed for the URN:</h1>\n"; 
print "<hr><h3>Surn</h3>\n"; 

print "</body>\n"; 

print "</html>\n"; 

exit; 


}; 

A.5 I2R 
#!/usr/local/bin/perl 
use strict; 


# 
# this is a URN 2 resource resolver for the ietf namespace 
# 


my (spathbase) = ( 

rfc => "rfc/rfc", 

fyi => "fyi/fyi", 

std => "std/std", 

bcp => "bep/bcp", 

id => "internet-drafts/draft-" 
i 
my (snumber2date) = ( 


44 => "99mar", 
43 => "98dec", 42 => "98aug", 41 => "98apr", 


Moats Informational [Page 22] 


RFC 2648 A URN Namespace for IETF Documents August 1999 


40 => "97dec", 39 => "97aug", 38 => "97apr", 
37 => "96dec", 36 => "96Jjun", 35 => "96mar", 
34 => "95dec", 33 => "95Jjul", 32 => "95apr", 
31 => "94dec", 30 => "94jul", 29 => "94mar", 
28 => "93nov", 27 => "93Jjul", 26 => "93mar", 
25 => "92nov", 24 => "92jul", 23 => "92mar", 
22 => "91nov", 21 => "91jul", 20 => "91mar", 
19 => "90dec" ); 


my ($wgpath) = "/ftp/ietf"; 

my (Surn) = SENV{’ QUERY_STRING’ }; 

my ($host) = SENV{’SERVER_NAME’}; #get my host name for ftp: URLs 

my (Saccept) = SENV{’HTTP_ACCEPT’}; #this is the "Accept:" HTTP header 


print "Surn\n"; 


(&resolveid($1), exit) if ($Surn =~ /urn:ietf:id: (\S+)/i); 
(&resolvel($1, $2), exit) if ($Surn =~ /urn:ietf: (\w*): (\d*) /i); 
(&resolve2 ($1, $2), exit) if ($Surn =~ /urn:ietf:mtg: (\d*)- (\w*) /i); 


&urn_error("400 Bad Request\n"); 


sub resolve2 { 


my ($Sietfnum, $sesnam) = @_; 

&urn_error ("404 Not Found\n") if (!defined $number2date{Sietfnum}); 
my ($date) =$number2date {$ietfnum}; 

my ($link) ="$wgpath/$sesnam/$sesnam-minutes-$date.txt"; 


if (-£ $link) { 
print "Status: 200 OK\n"; 
print "Content-type: text/plain\n\n"; 
open (FILE, "$link"); 
while (<FILE>) { 
print $_; 
} 
close FILE; 
return; 
} 
my ($link) ="$wgpath/$date/$sesnam-minutes-$Sdate.txt"; 
if (-£ $link) { 
print "Status: 200 OK\n"; 
print "Content-type: text/plain\n\n"; 
open (FILE, "$link"); 
while (<FILE>) { 
print $_; 
} 
close FILE; 
return; 
} 


&urn_error ("404 Not Found\n"); 
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sub end { 
my (Sinarg) =@_; 


return $inarg . "St" if (Sinarg =~ /1$/); 
return $inarg . "nd" if (Sinarg =~ /28/); 
return $inarg . "rd" if (Sinarg =~ /3$/); 
return Sinarg . "th"; 


} 


sub resolvel { 
my ($flag, @bib, $i, $k,$ j,$done, @ref) ; 
my ($1, $link); 
my ($scheme, $value) = @_; 
Sscheme =~ tr/A-Z/a-z/; 
&urn_error ("404 Not Found\n")if (!defined S$pathbase{$scheme}) ; 
my ($txttry) ="/ftp/Spathbase{$scheme}$value.txt"; 
my (Spstry) ="/ftp/Spathbase{$scheme}S$value.ps"; 
my ($Shtmltry)="/ftp/$pathbase{$scheme}$value.html"; 
MIME _SWITCH: { 
if (Saccept =" /application\/postscript/ && -f $pstry) { 
print "Status: 200 OK\n"; 
print "Content-type: application/postscript\n\n"; 
open(FILE, "Spstry"); 
while (<FILE>) { 
print S_; 
} 
close FILE; 
last MIME SWITCH; 
} 
if (Saccept =~ /text\/html/ && -f $htmltry) { 
print "Status: 200 OK\n"; 
print "Content-type: text/html\n\n"; 
open (FILE, "Shtmltry"); 
while (<FILE>) { 
print $_; 
} 
close FILE; 
last MIME_SWITCH; 
} 
if (Saccept =" /\*\/\*|text\/plain/ && -f $txttry) { 
print "Status: 200 OK\n"; 
print "Content-type: text/plain\n\n"; 
open (FILE, "Stxttry"); 
while (<FILE>) { 
print $; 
} 
close FILE; 
last MIME_SWITCH; 
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&urn_error("404 Not Found\n"); 


} 


sub resolveid { 


my ($flag, @bib, $i, $k,$ j,$done, @ref) ; 


my ($1, $link); 
my ($Sscheme) = "id"; 

my ($value) = @_; 
Sscheme =~ tr/A-Z/a-z/; 


&urn_error ("404 Not Found\n")if 


my ($txttry) ="/ftp/Spathbase{$scheme}$value.txt"; 
my (Spstry) ="/ftp/Spathbase{$scheme}S$value.ps"; 
my ($htmltry)="/ftp/$pathbase{$scheme}$value.html"; 


MIME SWITCH: { 
if (Saccept =" 
print "Status: 
print "Content-type: 
open (FILE, "Spstry"); 
while (<FILE>) { 
print $_; 
} 
close FILE; 
last MIME_SWITCH; 
} 
if (Saccept =" 
print "Status: 
print 
open (FILE, 
while (<FILE>) { 
print $_; 
} 
close FILE; 
last MIME_SWITCH; 
} 
if (Saccept =" 


"Content-type: 


/application\/postscript/ && -f Spstry) 
200 OK\n"; 


application/postscript\n\n"; 


/text\/html/ && -f $htmltry) { 
200 OK\n"; 


text/html\n\n"; 


"Shtmltry"); 


/\*\/\*|text\/plain/ && -f $txttry) 
200 OK\n"; 


print "Content-type: text/plain\n\n"; 


print "Status: 
open(FILE, "Stxttry"); 
while (<FILE>) { 

print S_; 


} 

close FILE; 

last MIME SWITCH; 
} 


&urn_error ("404 Not Found\n"); 
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sub urn_error { 
my ($code) = @_; #store failure code here... 


print "Status: $code"; 

print "Content-type: text/html\n\n<HTML>\n"; 

print "<head><title>URN Resolution: I2R $code</title></head>\n"; 
print "<BODY>\n"; 

print "<hl>URN to URL resolution failed for the URN:</h1>\n"; 
print "<hr><h3>Surn</h3>\n"; 

print "</body>\n"; 

print "</html>\n"; 

exit; 


} 

A.6 I2Rs 
#!/usr/local/bin/perl 
use strict; 


# 
# this is a URN 2 resources resolver for the ietf namespace 
# 


my (@urls); 


my (%$pathbase) = ( 

rfc => "rfc/rfc", 

fyi => "fyi/fyi", 

std => "std/std", 

bcp => "bep/bcp", 

id => "internet-drafts/draft-" 
); 


my ($number2date) = ( 

44 => "99mar", 

43 => "98dec", 42 => "98aug", 41 => "98apr", 
40 => "97dec", 39 => "97aug", 38 => "97apr", 
37 => "96dec", 36 => "96jun", 35 => "96mar", 
34 => "95dec", 33 => "95Jjul", 32 => "95apr", 
31 => "94dec", 30 => "94jul", 29 => "94mar", 
28 => "93nov", 27 => "93Jjul", 26 => "93mar", 
25 => "92nov", 24 => "92jul", 23 => "92mar", 
22 => "91nov", 21 => "91jul", 20 => "91mar", 
19 => "90dec" ); 


my ($wgpath) = "/ftp/ietf"; 
my (Surn) = SENV{’ QUERY_STRING’ }; 
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my ($host) = SENV{’SERVER_NAME’}; #get my host name for ftp: URLs 

my (Saccept) = SENV{’HTTP_ACCEPT’}; #this is the "Accept:" HTTP header 
(&resolveid($1), exit) if ($urn =~ /urn:ietf:id: (\s*)/i); 

(&resolvel ($1, $2), exit) if ($Surn =~ /urn:ietf: (\w*): (\d*) /i); 
(&resolve2($1, $2), exit) if ($Surn =~ /urn:ietf:mtg: (\d*)- (\w*) /i); 
&urn_error("400 Bad Request\n"); 


sub resolve2 { 


my ($ietfnum, $sesnam) = @_; 

my (@vers, $i) ; 

&urn_error ("404 Not Found\n") if (!defined $number2date{$ietfnum}); 
my ($date) =Snumber2date{Sietfnum}; 

my ($link) ="$wgpath/$sesnam/$sesnam-minutes-$date.txt"; 


if (-f $link) { 

push (@vers, $link); 
} 
Slink="$wgpath/$date/$sesnam-minutes-$date.txt"; 
if (-f $link) { 

push (@vers, $link); 
} 


&urn_error ("404 Not Found\n") if ($#vers==-1); 


print "Status: 200 OK\n"; 
print "Content-type: multipart/alternative; boundary=endpart\n\n"; 
foreach $i (@vers) { 
print "--endpart\n"; 
if ($i =~ /html$/) { 
print "Content-Type: text/html\n\n"; 


if ($i =" /txt$/) { 
print "Content-Type: text/plain\n\n"; 


if ($i =" /psS/) { 
print "Content-Type: application/postscript\n\n"; 
} 
open (FILE, "S$i"); 
while (<FILE>) { 
print "$_"; 
} 
close FILE; 
} 
print "--endpart\n"; 


} 


sub resolvel { 
my ($flag, @bib, $i, $k,$ j,$done, @ref) ; 
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my ($1,$link,@vers); 
my ($scheme, $value) = @_; 
Sscheme =" tr/A-Z/a-z/; 
&urn_error ("404 Not Found\n")if (!defined $Spathbase{$scheme}); 
my (S$try)="/ftp/Spathbase{$scheme}$value.txt"; 
if (-f Stry) { 
push(@vers, $try); 
} 
Stry="/ftp/Spathbase{$scheme}Svalue.ps"; 
if (st Stry).{ 
push(@vers, $try); 
} 
Stry="/ftp/Spathbase{$scheme}S$value.html"; 
if (-f Stry) { 
push(@vers, $try); 


} 
print "Status: 200 OK\n"; 
print "Content-type: multipart/alternative; boundary=endpart\n\n"; 
foreach Si (@vers) { 
print "--endpart\n"; 
if ($i =~ /html$/) { 
print "Content-Type: text/html\n\n"; 
} 
if ($i =" /txt$/) { 
print "Content-Type: text/plain\n\n"; 
} 
if ($i =" /psS/) { 
print "Content-Type: application/postscript\n\n"; 
} 
open (FILE, "S$i"); 
while (<FILE>) { 
print " Suit ; 
} 
close FILE; 
} 
print "--endpart\n"; 


} 


sub resolveid { 
my ($flag, @bib, $i, $k,$ j,$done, @ref) ; 
my ($1, $link, @vers) ; 


my ($scheme) = "id"; 
my ($value) = @_; 
Sscheme =~ tr/A-2/a-z/; 


&urn_error ("404 Not Found\n")if (!defined S$pathbase{$scheme}) ; 
my ($try)="/ftp/Spathbase{$scheme}$value.txt"; 
if (-£ Stry) { 
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push (@vers, $try); 
} 
Stry="/ftp/$pathbase {$scheme}$value.ps"; 
if (-f $try) { 

push (@vers, Stry); 
} 
Stry="/f£ftp/$pathbase {$scheme}$value.html"; 
if (-f Stry) { 

push (@vers, $try); 
} 
print "Status: 200 OK\n"; 
print "Content-type: multipart/alternative; boundary=endpart\n\n"; 
foreach $i (@vers) { 

print "--endpart\n"; 

if ($i =~ /html$/) { 

print "Content-Type: text/html\n\n"; 


if ($i =" /txt$/) { 
print "Content-Type: text/plain\n\n"; 


if ($i =" /psS/) { 
print "Content-Type: application/postscript\n\n"; 
} 
open (FILE, "S$i"); 
while (<FILE>) { 
prine "SW 
} 
close FILE; 
} 
print "--endpart\n"; 
} 
sub urn_error { 
my ($code) = @_; #store failure code here... 


print "Status: $code"; 

print "Content-type: text/html\n\n<HTML>\n"; 

print "<head><title>URN Resolution: I2Rs $code</title></head>\n"; 
print "<BODY>\n"; 

print "<hl>URN to URL resolution failed for the URN:</h1>\n"; 
print "<hr><h3>Surn</h3>\n"; 

print "</body>\n"; 

print "</html>\n"; 

exit; 
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Full Copyright Statement 
Copyright (C) The Internet Society (1999). All Rights Reserved. 


This document and translations of it may be copied and furnished to 
others, and derivative works that comment on or otherwise explain it 
or assist in its implementation may be prepared, copied, published 
and distributed, in whole or in part, without restriction of any 
kind, provided that the above copyright notice and this paragraph are 
included on all such copies and derivative works. However, this 
document itself may not be modified in any way, such as by removing 
the copyright notice or references to the Internet Society or other 
Internet organizations, except as needed for the purpose of 
developing Internet standards in which case the procedures for 
copyrights defined in the Internet Standards process must be 
followed, or as required to translate it into languages other than 
English. 


The limited permissions granted above are perpetual and will not be 
revoked by the Internet Society or its successors or assigns. 


This document and the information contained herein is provided on an 
"AS IS" basis and THE INTERNET SOCIETY AND THE INTERNET ENGINEERING 
TASK FORCE DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING 
BUT NOT LIMITED TO ANY WARRANTY THAT THE USE OF THE INFORMATION 
HEREIN WILL NOT INFRINGE ANY RIGHTS OR ANY IMPLIED WARRANTIES OF 
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. 
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